home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / vitor.dxr / 00041.ls < prev    next >
Encoding:
Text File  |  1996-03-21  |  964 b   |  47 lines
  1. on enterFrame
  2.   global Gflag, Osprite
  3.   set Gflag to 0
  4.   put Osprite
  5.   set the visible of sprite Osprite to 1
  6. end
  7.  
  8. on mouseUp
  9.   global ActFrame, Osprite
  10.   if rollOver(Osprite) then
  11.     set the visible of sprite Osprite to 0
  12.     go(ActFrame)
  13.   end if
  14. end
  15.  
  16. on exitFrame
  17.   if rollOver(20) then
  18.     if the visible of sprite 20 = 0 then
  19.       set the visible of sprite 20 to 1
  20.     end if
  21.   else
  22.     set the visible of sprite 20 to 0
  23.   end if
  24.   if rollOver(21) then
  25.     if the visible of sprite 21 = 0 then
  26.       set the visible of sprite 21 to 1
  27.     end if
  28.   else
  29.     set the visible of sprite 21 to 0
  30.   end if
  31.   if rollOver(22) then
  32.     if the visible of sprite 22 = 0 then
  33.       set the visible of sprite 22 to 1
  34.     end if
  35.   else
  36.     set the visible of sprite 22 to 0
  37.   end if
  38.   if rollOver(23) then
  39.     if the visible of sprite 23 = 0 then
  40.       set the visible of sprite 23 to 1
  41.     end if
  42.   else
  43.     set the visible of sprite 23 to 0
  44.   end if
  45.   go(the frame)
  46. end
  47.